           02  PO-MAST-BASE-RECORD.                                     00010001
             05  BASE-REC-DELETE-BYTE                                   00020001
                                       PICTURE X.                       00030001
             05  BASE-REC-KEYFIELD.                                     00040001
               10  BASE-REC-CORP-SUB-CORP.                              00050001
                   15  BASE-REC-CORP                                    00060001
                                       PICTURE XX.                      00070001
                   15  BASE-REC-SUB-CORP                                00080001
                                       PICTURE XXX.                     00090001
               10  BASE-REC-PO-NBR                                      00100001
                                       PICTURE X(9).                    00110001
               10  BASE-REC-LINE-ITEM  PICTURE 999.                     00120001
                   88  BASE-LINE-ITEM-000        VALUE 000.             00130001
                   88  BASE-LINE-ITEM-001        VALUE 001.             00140001
                   88  BASE-LINE-ITEM-002        VALUE 002.             00150001
                   88  BASE-LINE-ITEM-001-999    VALUE 001 THRU 999.    00160001
               10  BASE-REC-SUB-LINE   PICTURE 9(5).                    00170001
                   88  BASE-SUB-LINE-00000       VALUE 00000.           00180001
                   88  BASE-SUB-LINE-00001-99999                        00190001
                         VALUE 00001 THRU 99999.                        00191001
               10  BASE-REC-FILLER-1                                    00200001
                                       PICTURE X(5).                    00210001
               10  BASE-REC-REC-TYPE   PICTURE X.                       00220001
                   88  BASE-REC-TYPE-T           VALUE 'T'.             00230001
                   88  BASE-REC-TYPE-U           VALUE 'U'.             00240001
                   88  BASE-REC-TYPE-V           VALUE 'V'.             00250001
                   88  PO-FILE                   VALUE HIGH-VALUE.      00260001
             05  BASE-REC-MILL-FIELDS.                                  00270001
               10  BASE-REC-MILL-BYTES                                  00280001
                                       PICTURE X(20).                   00290001
               10  BASE-REC-DATA-LNGTH                                  00300001
                                       PICTURE S9(5)          COMP-3.   00310001
             05  BASE-REC-RECORD-BODY.                                  00320001
               10  BASE-REC-BATCH-NBR                                   00330001
                                       PICTURE X(5).                    00340001
               10  BASE-REC-VENDOR-NBR                                  00350001
                                       PICTURE X(15).                   00360001
               10  BASE-REC-VENDOR-LEVEL                                00370001
                                       PICTURE XXX.                     00380001
               10  BASE-REC-STATUS                                      00390001
                                       PICTURE X.                       00400001
               10  BASE-REC-MATCH-STATUS                                00410001
                                       PICTURE X.                       00420001
               10  BASE-REC-ACTIVITY-STATUS                             00430001
                                       PICTURE X.                       00440001
               10  BASE-REC-NO-PO-OPEN-LINES                            00450001
                                       PICTURE S999           COMP-3.   00460001
               10  BASE-REC-NO-UNMTCH-REC-DBM                           00470001
                                       PICTURE S999           COMP-3.   00480001
               10  BASE-REC-PO-TYPE                                     00490001
                                       PICTURE X.                       00500001
               10  BASE-REC-PO-DATE                                     00510001
                                       PICTURE S9(5)          COMP-3.   00520001
               10  BASE-REC-CHANGE-NBR                                  00530001
                                       PICTURE 99.                      00540001
               10  BASE-REC-BUYER-CODE                                  00550001
                                       PICTURE XXX.                     00560001
               10  BASE-REC-EXPEDIT-CODE                                00570001
                                       PICTURE XXX.                     00580001
               10  BASE-REC-PRINT-CODE                                  00590001
                                       PICTURE X.                       00600001
               10  BASE-REC-MAIL-CODE                                   00610001
                                       PICTURE X.                       00620001
               10  BASE-REC-ACKNOW-CODE                                 00630001
                                       PICTURE X.                       00640001
               10  BASE-REC-RECEIPT-CODE                                00650001
                                       PICTURE X.                       00660001
               10  BASE-REC-CONFIRM-CODE                                00670001
                                       PICTURE X.                       00680001
               10  BASE-REC-CONFIRM-TO                                  00690001
                                       PICTURE X(15).                   00700001
               10  BASE-REC-VEN-JOB-NBR                                 00710001
                                       PICTURE X(6).                    00720001
               10  BASE-REC-SPEC-INSTRUC                                00730001
                                       PICTURE XX.                      00740001
               10  BASE-REC-PO-GROSS-TOT                                00750001
                                       PICTURE S9(13)V9(2)    COMP-3.   00760001
               10  FILLER              PICTURE XX.                      00770001
               10  BASE-REC-PO-NET-DIS-TOT                              00780001
                                       PICTURE S9(13)V9(2)    COMP-3.   00790001
               10  FILLER              PICTURE XX.                      00800001
               10  BASE-REC-TOT-INVOICED                                00810001
                                       PICTURE S9(13)V9(2)    COMP-3.   00820001
               10  FILLER              PICTURE XX.                      00830001
               10  BASE-REC-TAXABLE-CODE                                00840001
                                       PICTURE X.                       00850001
               10  BASE-REC-TAX-AMTPCT-C                                00860001
                                       PICTURE X.                       00870001
               10  BASE-REC-TAX-AMOUNT                                  00880001
                                       PICTURE S9(13)V99      COMP-3.   00890001
               10  BASE-REC-TAX-PERCENT                                 00900001
                                       PICTURE S999V99        COMP-3.   00910001
               10  BASE-REC-TAX-PERCENT-R                               00920001
                                       REDEFINES BASE-REC-TAX-PERCENT   00930001
                                       PICTURE S9V9999        COMP-3.   00940001
               10  BASE-REC-TOT-TAX-CHRG                                00950001
                                       PICTURE S9(13)V99      COMP-3.   00960001
               10  BASE-REC-PREPAID-CODE                                00970001
                                       PICTURE X.                       00980001
               10  BASE-REC-FREIGHT-AMT                                 00990001
                                       PICTURE S9(5)V99       COMP-3.   01000001
               10  BASE-REC-TOT-FRHT-CHG                                01010001
                                       PICTURE S9(5)V99       COMP-3.   01020001
               10  BASE-REC-DISC-AMTPCT                                 01030001
                                       PICTURE X.                       01040001
               10  BASE-REC-DISC-AMOUNT                                 01050001
                                       PICTURE S9(13)V9(2)    COMP-3.   01060001
               10  FILLER              PICTURE XX.                      01070001
               10  BASE-REC-DISC-PCT                                    01080001
                                       PICTURE S999V99        COMP-3.   01090001
               10  BASE-REC-DISC-PCT-R REDEFINES BASE-REC-DISC-PCT      01100001
                                       PICTURE S9V9999        COMP-3.   01110001
               10  BASE-REC-PAY-TERMS.                                  01120001
                   15  BASE-REC-TERM-DIS-PCT                            01130001
                                       PICTURE S999V99        COMP-3.   01140001
                   15  BASE-REC-TERM-DIS-PCT-R REDEFINES                01150001
                       BASE-REC-TERM-DIS-PCT                            01160001
                                       PICTURE S9V9999        COMP-3.   01170001
                   15  BASE-REC-TERM-DIS-DAY                            01180001
                                       PICTURE S999           COMP-3.   01190001
                   15  BASE-REC-TERM-PAY-DAY                            01200001
                                       PICTURE S999           COMP-3.   01210001
               10  BASE-REC-SHIP-TO-CODE                                01220001
                                       PICTURE X(4).                    01230001
               10  BASE-REC-SHIP-VIA                                    01240001
                                       PICTURE X(15).                   01250001
               10  BASE-REC-BLANK-EXP-DT                                01260001
                                       PICTURE S9(5)          COMP-3.   01270001
               10  BASE-REC-FOB-POINT                                   01280001
                                       PICTURE X(15).                   01290001
               10  BASE-REC-FISC-YEAR                                   01300001
                                       PICTURE 99.                      01310001
               10  BASE-REC-PERIOD-NBR                                  01320001
                                       PICTURE 99.                      01330001
               10  BASE-REC-VENDOR-NAME                                 01340001
                                       PICTURE X(20).                   01350001
               10  BASE-REC-RELEASE-PRINT                               01360001
                                       PICTURE X.                       01370001
               10  BASE-REC-RELEASE-MAIL                                01380001
                                       PICTURE X.                       01390001
               10  BASE-REC-MATCH-ORIDE                                 01400001
                                       PICTURE X.                       01410001
               10  BASE-REC-NBR-OF-LINES                                01420001
                                       PICTURE S9(3)          COMP-3.   01430001
               10  BASE-REC-NBR-ACTIVE-RECS                             01440001
                                       PICTURE S9(7)          COMP-3.   01450001
               10  BASE-REC-MISC-FIELD1                                 01460001
                                       PICTURE X(15).                   01470001
               10  BASE-REC-MISC-FIELD2                                 01480001
                                       PICTURE X(15).                   01490001
               10  BASE-REC-COMM-DEL-DT                                 01500001
                                       PICTURE S9(5)          COMP-3.   01510001
               10  BASE-REC-DIST-ACCT.                                  01520001
                   15  BASE-REC-DISTCORP.                               01530001
                       20  BASE-REC-DISTGRPCRP                          01540001
                                       PICTURE X(02).                   01550001
                       20  BASE-REC-DISTSUBCRP                          01560001
                                       PICTURE X(03).                   01570001
                   15  BASE-REC-DISTACCT                                01580001
                                       PICTURE X(44).                   01590001
               10  BASE-REC-CURRENCY                                    01600001
                                       PICTURE X(5).                    01610001
               10  BASE-REC-CHANGE-DATE                                 01620001
                                       PICTURE S9(5)          COMP-3.   01630001
               10  BASE-REC-MISC-FIELD3                                 01640001
                                       PICTURE X(10).                   01650001
               10  BASE-REC-MISC-FIELD4                                 01660001
                                       PICTURE X(10).                   01670001
               10  BASE-REC-MISC-FIELD5                                 01680001
                                       PICTURE X(10).                   01690001
               10  BASE-REC-MISC-FIELD6                                 01700001
                                       PICTURE X(10).                   01710001
               10  BASE-REC-CONFIRM-DATE.                               01720001
                   15  BASE-REC-CONFIRM-MM                              01730001
                                       PICTURE 99.                      01740001
                   15  BASE-REC-CONFIRM-DD                              01750001
                                       PICTURE 99.                      01760001
                   15  BASE-REC-CONFIRM-YY                              01770001
                                       PICTURE 99.                      01780001
               10  BASE-REC-EDI-OPTION                                  01790001
                                       PICTURE X.                       01800001
               10  BASE-REC-SINGLE-DATE-PRINT                           01810001
                                       PICTURE X.                       01820001
               10  BASE-REC-SINGLE-DIST-PRINT                           01830001
                                       PICTURE X.                       01840001
               10  BASE-REC-RCPTTOL    PICTURE 9(3)  COMP-3.            01850001
               10  BASE-REC-EXPANSION-1                                 01860001
                                       PICTURE X(220).                  01870001
               10  BASE-REC-TEXT-LOC                                    01880001
                                       PICTURE X.                       01890001
               10  BASE-REC-EDITSW                                      01900001
                                       PICTURE X.                       01910001
               10  BASE-REC-ERR5620                                     01920001
                                       PICTURE X.                       01930001
               10  BASE-REC-ERR5622                                     01940001
                                       PICTURE X.                       01950001
               10  BASE-REC-SUBLDGID                                    01960001
                                       PICTURE X.                       01970001
               10  BASE-REC-SUBLDGACCT                                  01980001
                                       PICTURE X(16).                   01990001
               10  BASE-REC-ERR5613                                     02000001
                                       PICTURE X.                       02010001
               10  BASE-REC-ERR5612                                     02020001
                                       PICTURE X.                       02030001
               10  BASE-REC-ERR5882                                     02040001
                                       PICTURE X.                       02050001
               10  BASE-REC-ERR5889                                     02060001
                                       PICTURE X.                       02070001
               10  BASE-REC-TOTAL-WARNING                               02080001
                                       PICTURE S9(5)          COMP-3.   02090001
               10  BASE-REC-ACTIVE-RCPT                                 02100001
                                       PICTURE S9(5)          COMP-3.   02110001
               10  BASE-REC-ACTIVE-INSP                                 02120001
                                       PICTURE S9(5)          COMP-3.   02130001
               10  BASE-REC-ACTIVE-DM                                   02140001
                                       PICTURE S9(5)          COMP-3.   02150001
               10  BASE-REC-ACTIVE-RELEASE                              02160001
                                       PICTURE S9(5)          COMP-3.   02170001
               10  BASE-REC-LINE-TOT                                    02180001
                                       PICTURE S9(13)V9(2)    COMP-3.   02190001
               10  FILLER              PICTURE XX.                      02200001
               10  BASE-REC-ERRWARN                                     02210001
                                       PICTURE S9(5)          COMP-3.   02220001
               10  BASE-REC-ERRTOT                                      02230001
                                       PICTURE S9(5)          COMP-3.   02240001
               10  BASE-REC-LST-ACT-DATE                                02250001
                                       PICTURE S9(5)          COMP-3.   02260001
               10  BASE-REC-ACTION                                      02270001
                                       PICTURE X.                       02280001
               10  BASE-REC-SORT-KEY                                    02290001
                                       PICTURE S999           COMP-3.   02300001
               10  BASE-REC-DESCR-SEQ                                   02310001
                                       PICTURE S9(3)          COMP-3.   02320001
               10  BASE-REC-ORIGIN                                      02330001
                                       PICTURE X.                       02340001
               10  BASE-REC-UPDATED                                     02350001
                                       PICTURE X.                       02360001
               10  BASE-REC-INT-AMOUNT1                                 02370001
                                       PICTURE S9(13)V9(2)    COMP-3.   02380001
               10  FILLER              PICTURE XX.                      02390001
               10  BASE-REC-INT-AMOUNT2                                 02400001
                                       PICTURE S9(13)V9(2)    COMP-3.   02410001
               10  FILLER              PICTURE XX.                      02420001
               10  BASE-REC-INT-MISC1                                   02430001
                                       PICTURE X(25).                   02440001
               10  BASE-REC-INT-MISC2                                   02450001
                                       PICTURE X(25).                   02460001
               10  BASE-REC-INT-DATE1.                                  02470001
                   15  BASE-REC-INT-DATE1-YY                            02480001
                                       PICTURE 99.                      02490001
                   15  BASE-REC-INT-DATE1-MM                            02500001
                                       PICTURE 99.                      02510001
                   15  BASE-REC-INT-DATE1-DD                            02520001
                                       PICTURE 99.                      02530001
               10  BASE-REC-INT-EXPANSION                               02540001
                                       PICTURE X(24).                   02550001
       SKIP3                                                            02560001
           02  PO-MAST-LINE-RECORD REDEFINES PO-MAST-BASE-RECORD.       02570001
             05  LINE-REC-DELETE-BYTE  PICTURE X.                       02580001
             05  LINE-REC-KEYFIELD.                                     02590001
               10  LINE-REC-CORP-SUB-CORP.                              02600001
                   15  LINE-REC-CORP                                    02610001
                                       PICTURE XX.                      02620001
                   15  LINE-REC-SUB-CORP                                02630001
                                       PICTURE XXX.                     02640001
               10  LINE-REC-PO-NBR                                      02650001
                                       PICTURE X(9).                    02660001
               10  LINE-REC-LINE-ITEM                                   02670001
                                       PICTURE 999.                     02680001
               10  LINE-REC-SUB-LINE                                    02690001
                                       PICTURE 9(5).                    02700001
               10  LINE-REC-FILLER                                      02710001
                                       PICTURE X(5).                    02720001
               10  LINE-REC-REC-TYPE                                    02730001
                                       PICTURE X.                       02740001
             05  LINE-REC-MILL-FIELDS.                                  02750001
               10  LINE-REC-MILL-BYTES                                  02760001
                                       PICTURE X(20).                   02770001
               10  LINE-REC-DATA-LNGTH                                  02780001
                                       PICTURE S9(5)          COMP-3.   02790001
             05  LINE-REC-RECORD-BODY.                                  02800001
               10  LINE-REC-BATCH-NBR                                   02810001
                                       PICTURE X(5).                    02820001
               10  LINE-REC-VENDOR-NBR                                  02830001
                                       PICTURE X(15).                   02840001
               10  LINE-REC-VENDOR-LEVEL                                02850001
                                       PICTURE XXX.                     02860001
               10  LINE-REC-LINE-STATUS                                 02870001
                                       PICTURE X.                       02880001
               10  LINE-REC-MATCHSTAT                                   02890001
                                       PICTURE X.                       02900001
               10  LINE-REC-PO-TYPE                                     02910001
                                       PICTURE X.                       02920001
               10  LINE-REC-TYPE-PRT-IND                                02930001
                                       PICTURE X.                       02940001
               10  LINE-REC-PART-CORP                                   02950001
                                       PICTURE X(5).                    02960001
               10  LINE-REC-PRT-NBR-DESC.                               02970001
                   15  LINE-REC-PART-COMM-CODE                          02980001
                                       PICTURE X(8).                    02990001
                   15  LINE-REC-PART-NBR-DESC                           03000001
                                       PICTURE X(25).                   03010001
                   15  FILLER              PICTURE X(5).                03020001
                   15  LINE-REC-VENDOR-PRT-NBR                          03030001
                                       PICTURE X(25).                   03040001
                   15  FILLER          PICTURE X(10).                   03050001
               10  LINE-REC-PART-DESC                                   03060001
                                       PICTURE X(25).                   03070001
               10  LINE-REC-TOT-GROSS                                   03080001
                                       PICTURE S9(13)V9(2)    COMP-3.   03090001
               10  FILLER              PICTURE XX.                      03100001
               10  LINE-REC-NET-TOT-DIS-AMT                             03110001
                                       PICTURE S9(13)V9(2)    COMP-3.   03120001
               10  FILLER              PICTURE XX.                      03130001
               10  LINE-REC-TOT-INV-AMT                                 03140001
                                       PICTURE S9(13)V9(2)    COMP-3.   03150001
               10  FILLER              PICTURE XX.                      03160001
               10  LINE-REC-BLANK-MAX-AMT                               03170001
                                       PICTURE S9(13)V9(2)    COMP-3.   03180001
               10  FILLER              PICTURE XX.                      03190001
               10  FILLER              PICTURE XX.                      03200001
               10  LINE-REC-TOT-REC-QTY                                 03210001
                                       PICTURE S9(13)V9(5)    COMP-3.   03220001
               10  LINE-REC-BLANK-MAX-QTY                               03230001
                                       PICTURE S9(13)V9(5)    COMP-3.   03240001
               10  LINE-REC-ORDER-QTY                                   03250001
                                       PICTURE S9(13)V9(5)    COMP-3.   03260001
               10  LINE-REC-ADJ-ORDER-QTY                               03270001
                                       PICTURE S9(13)V9(5)    COMP-3.   03280001
               10  LINE-REC-UNIT-MEASURE                                03290001
                                       PICTURE XXXX.                    03300001
               10  LINE-REC-UNIT-PRICE                                  03310001
                                       PICTURE S9(13)V9(5)    COMP-3.   03320001
               10  LINE-REC-TYPE-MEASURE                                03330001
                                       PICTURE X.                       03340001
               10  LINE-REC-DISC-AMT-PCT                                03350001
                                       PICTURE X.                       03360001
               10  LINE-REC-DISC-AMT                                    03370001
                                       PICTURE S9(13)V9(2)    COMP-3.   03380001
               10  FILLER              PICTURE XX.                      03390001
               10  LINE-REC-DISC-PCT                                    03400001
                                       PICTURE S999V99        COMP-3.   03410001
               10  LINE-REC-DISC-PCT-R REDEFINES LINE-REC-DISC-PCT      03420001
                                       PICTURE S9V9999        COMP-3.   03430001
               10  LINE-REC-COM-DELIV-DT                                03440001
                                       PICTURE S9(5)          COMP-3.   03450001
               10  LINE-REC-REQUIRE-DATE                                03460001
                                       PICTURE S9(5)          COMP-3.   03470001
               10  LINE-REC-RELEASE-DATE                                03480001
                                       PICTURE S9(5)          COMP-3.   03490001
               10  LINE-REC-ROUTING-CODE                                03500001
                                       PICTURE X(4).                    03510001
               10  LINE-REC-INSPEC-CODE                                 03520001
                                       PICTURE X(4).                    03530001
               10  LINE-REC-INSPEC-REQUR                                03540001
                                       PICTURE X.                       03550001
               10  LINE-REC-MATCH-ORIDE                                 03560001
                                       PICTURE X.                       03570001
               10  LINE-REC-SPEC-INS                                    03580001
                                       PICTURE XX.                      03590001
               10  LINE-REC-PRIORITY-CD                                 03600001
                                       PICTURE X.                       03610001
               10  LINE-REC-CIP-RETRIEV                                 03620001
                                       PICTURE X(6).                    03630001
               10  LINE-REC-CIP-ACCOUNT                                 03640001
                                       PICTURE X(10).                   03650001
               10  LINE-REC-FA-CODE                                     03660001
                                       PICTURE X.                       03670001
               10  LINE-REC-MULT-REQ-IND                                03680001
                                       PICTURE X.                       03690001
               10  LINE-REC-REQUISIT-NBR                                03700001
                                       PICTURE X(9).                    03710001
               10  LINE-REC-REQUISI-LINE                                03720001
                                       PICTURE 999.                     03730001
               10  LINE-REC-REQUISIT-QTY                                03740001
                                       PICTURE S9(13)V9(5)    COMP-3.   03750001
               10  LINE-REC-DISTRIBUTION.                               03760001
                   15  LINE-REC-DISTCORP.                               03770001
                       20  LINE-REC-DISTGRPCRP                          03780001
                                       PICTURE X(02).                   03790001
                       20  LINE-REC-DISTSUBCRP                          03800001
                                       PICTURE X(03).                   03810001
                   15  LINE-REC-DISTACCT                                03820001
                                       PICTURE X(44).                   03830001
               10  LINE-REC-CURRENCY                                    03840001
                                       PICTURE X(5).                    03850001
               10  LINE-REC-RECEIPT-CODE                                03860001
                                       PICTURE X.                       03870001
               10  LINE-REC-SHIP-TO-CODE                                03880001
                                       PICTURE X(4).                    03890001
               10  LINE-REC-RELEASE-PRINT                               03900001
                                       PICTURE X.                       03910001
               10  LINE-REC-RELEASE-MAIL                                03920001
                                       PICTURE X.                       03930001
               10  LINE-REC-JE-YR-PERIOD.                               03940001
                   15  LINE-REC-JE-YEAR                                 03950001
                                       PICTURE 99.                      03960001
                   15  LINE-REC-JE-PERIOD                               03970001
                                       PICTURE 99.                      03980001
               10  LINE-REC-JE-ACCRUAL-AMT                              03990001
                                       PICTURE S9(13)V9(2)    COMP-3.   04000001
               10  FILLER              PICTURE XX.                      04010001
               10  LINE-REC-NBR-INSP-REQUR                              04020001
                                       PICTURE S9(5)          COMP-3.   04030001
               10  LINE-REC-NBR-OF-INSP                                 04040001
                                       PICTURE S9(5)          COMP-3.   04050001
               10  LINE-REC-MISC-FIELD1                                 04060001
                                       PICTURE X(15).                   04070001
               10  LINE-REC-MISC-FIELD2                                 04080001
                                       PICTURE X(15).                   04090001
               10  LINE-REC-OPEN-ORDER-QTY                              04100001
                                       PICTURE S9(13)V9(5)    COMP-3.   04110001
               10  LINE-REC-OPEN-ORDER-PCT                              04120001
                                       PICTURE S9(3)V99       COMP-3.   04130001
               10  LINE-REC-BC-DATE.                                    04140001
                   15  LINE-REC-BC-DATE-YY                              04150001
                                       PICTURE 99.                      04160001
                   15  LINE-REC-BC-DATE-PER                             04170001
                                       PICTURE 99.                      04180001
               10  LINE-REC-BC-POST-SW PICTURE X.                       04190001
               10  LINE-REC-BC-FILLER  PICTURE X(5).                    04200001
               10  LINE-REC-COMMITMENT-ID                               04210001
                                       PICTURE X(10).                   04220001
               10  LINE-REC-SAR-CODE                                    04230001
                                       PICTURE X(5).                    04240001
               10  LINE-REC-INVENTORY-FLAG                              04250001
                                       PICTURE X.                       04260001
               10  LINE-REC-WAREHOUSE-CODE                              04270001
                                       PICTURE X(5).                    04280001
               10  LINE-REC-GENERATION-FLAG                             04290001
                                       PICTURE X.                       04300001
               10  LINE-REC-QUOTE-NUMBER                                04310001
                                       PICTURE X(9).                    04320001
               10  LINE-REC-QUOTE-FIELD                                 04330001
                                       PICTURE X(11).                   04340001
               10  LINE-REC-AMOUNT-FIELD1                               04350001
                                       PICTURE S9(13)V9(2)    COMP-3.   04360001
               10  FILLER              PICTURE XX.                      04370001
               10  LINE-REC-AMOUNT-FIELD2                               04380001
                                       PICTURE S9(13)V9(2)    COMP-3.   04390001
               10  FILLER              PICTURE XX.                      04400001
               10  LINE-REC-REPROM-DATE.                                04410001
                   15  LINE-REC-REPROM-MM                               04420001
                                       PICTURE 99.                      04430001
                   15  LINE-REC-REPROM-DD                               04440001
                                       PICTURE 99.                      04450001
                   15  LINE-REC-REPROM-YY                               04460001
                                       PICTURE 99.                      04470001
               10  LINE-REC-RCPTTOL    PICTURE 9(3)  COMP-3.            04480001
               10  LINE-REC-BC-POEAMT  PICTURE S9(13)V99 COMP-3.        04490001
               10  LINE-REC-EXPANSION-1                                 04500001
                                       PICTURE X(53).                   04510001
               10  LINE-REC-ERR5913    PICTURE X.                       04520001
               10  LINE-REC-RLSENTRY                                    04530001
                                       PICTURE X.                       04540001
               10  LINE-REC-EDITSW                                      04550001
                                       PICTURE X.                       04560001
               10  LINE-REC-ERR5989                                     04570001
                                       PICTURE X.                       04580001
               10  LINE-REC-ERR5990                                     04590001
                                       PICTURE X.                       04600001
               10  LINE-REC-SUBLDGID                                    04610001
                                       PICTURE X.                       04620001
               10  LINE-REC-SUBLDGACCT                                  04630001
                                       PICTURE X(16).                   04640001
               10  LINE-REC-ERR5631                                     04650001
                                       PICTURE X.                       04660001
               10  LINE-REC-ERR5883                                     04670001
                                       PICTURE X.                       04680001
               10  LINE-REC-NBR-ACT-RECS                                04690001
                                       PICTURE S9(5)          COMP-3.   04700001
               10  LINE-REC-CIP-APPR                                    04710001
                                       PICTURE X(15).                   04720001
               10  LINE-REC-CIP-PRPTY                                   04730001
                                       PICTURE X(6).                    04740001
               10  LINE-REC-LAST-REL-NBR                                04750001
                                       PICTURE S9(5).                   04760001
               10  LINE-REC-SUMMREL                                     04770001
                                       PICTURE X.                       04780001
               10  LINE-REC-SUBQTY                                      04790001
                                       PICTURE S9(13)V9(5)    COMP-3.   04800001
               10  LINE-REC-ERRWARN                                     04810001
                                       PICTURE S9(5)          COMP-3.   04820001
               10  LINE-REC-ERRTOT                                      04830001
                                       PICTURE S9(5)          COMP-3.   04840001
               10  LINE-REC-EXPANSION-2                                 04850001
                                       PICTURE X(3).                    04860001
               10  LINE-REC-ACTION                                      04870001
                                       PICTURE X.                       04880001
               10  LINE-REC-SORT-KEY                                    04890001
                                       PICTURE S999           COMP-3.   04900001
               10  LINE-REC-DESCR-SEQ                                   04910001
                                       PICTURE S9(3)          COMP-3.   04920001
               10  LINE-REC-ORIGIN                                      04930001
                                       PICTURE X.                       04940001
               10  LINE-REC-UPDATED                                     04950001
                                       PICTURE X.                       04960001
               10  LINE-REC-INT-AMOUNT1                                 04970001
                                       PICTURE S9(13)V9(2)    COMP-3.   04980001
               10  FILLER              PICTURE XX.                      04990001
               10  LINE-REC-INT-AMOUNT2                                 05000001
                                       PICTURE S9(13)V9(2)    COMP-3.   05010001
               10  FILLER              PICTURE XX.                      05020001
               10  LINE-REC-INT-MISC1                                   05030001
                                       PICTURE X(25).                   05040001
               10  LINE-REC-INT-MISC2                                   05050001
                                       PICTURE X(25).                   05060001
               10  LINE-REC-INT-EXPANSION                               05070001
                                       PICTURE X(30).                   05080001
       SKIP3                                                            05090001
           02  PO-MAST-SLINE-RECORD REDEFINES PO-MAST-BASE-RECORD.      05100001
             05  SLINE-REC-DELETE-BYTE                                  05110001
                                       PICTURE X.                       05120001
             05  SLINE-REC-KEYFIELD.                                    05130001
               10  SLINE-REC-CORP-SUB-CORP.                             05140001
                   15  SLINE-REC-CORP                                   05150001
                                       PICTURE XX.                      05160001
                   15  SLINE-REC-SUB-CORP                               05170001
                                       PICTURE XXX.                     05180001
               10  SLINE-REC-PO-NBR                                     05190001
                                       PICTURE X(9).                    05200001
               10  SLINE-REC-LINE-ITEM                                  05210001
                                       PICTURE 999.                     05220001
               10  SLINE-REC-SUB-LINE                                   05230001
                                       PICTURE 9(5).                    05240001
               10  SLINE-REC-FILLER                                     05250001
                                       PICTURE X(5).                    05260001
               10  SLINE-REC-REC-TYPE                                   05270001
                                       PICTURE X.                       05280001
             05  SLINE-REC-MILL-FIELDS.                                 05290001
               10  SLINE-REC-MILL-BYTES                                 05300001
                                       PICTURE X(20).                   05310001
               10  SLINE-REC-DATA-LNGTH                                 05320001
                                       PICTURE S9(5)          COMP-3.   05330001
             05  SLINE-REC-RECORD-BODY.                                 05340001
               10  SLINE-REC-BATCH-NBR                                  05350001
                                       PICTURE X(5).                    05360001
               10  SLINE-REC-VENDOR-NBR                                 05370001
                                       PICTURE X(15).                   05380001
               10  SLINE-REC-VENDOR-LEVEL                               05390001
                                       PICTURE XXX.                     05400001
               10  SLINE-REC-LINE-STATUS                                05410001
                                       PICTURE X.                       05420001
               10  SLINE-REC-MATCHSTAT                                  05430001
                                       PICTURE X.                       05440001
               10  SLINE-REC-PO-TYPE                                    05450001
                                       PICTURE X.                       05460001
               10  SLINE-REC-TYPE-PRT-IND                               05470001
                                       PICTURE X.                       05480001
               10  SLINE-REC-PART-CORP                                  05490001
                                       PICTURE X(5).                    05500001
               10  SLINE-REC-PRT-NBR-DESC.                              05510001
                   15  SLINE-REC-PART-COMM-CODE                         05520001
                                       PICTURE X(8).                    05530001
                   15  SLINE-REC-PART-NBR-DESC                          05540001
                                       PICTURE X(25).                   05550001
                   15  FILLER          PICTURE X(5).                    05560001
                   15  SLINE-REC-VENDOR-PRT-NBR                         05570001
                                       PICTURE X(25).                   05580001
                   15  FILLER          PICTURE X(10).                   05590001
               10  SLINE-REC-PART-DESC                                  05600001
                                       PICTURE X(25).                   05610001
               10  SLINE-REC-TOT-GROSS                                  05620001
                                       PICTURE S9(13)V9(2)    COMP-3.   05630001
               10  FILLER              PICTURE XX.                      05640001
               10  SLINE-REC-NET-TOT-DIS-AMT                            05650001
                                       PICTURE S9(13)V9(2)    COMP-3.   05660001
               10  FILLER              PICTURE XX.                      05670001
               10  SLINE-REC-TOT-INV-AMT                                05680001
                                       PICTURE S9(13)V9(2)    COMP-3.   05690001
               10  FILLER              PICTURE XX.                      05700001
               10  SLINE-REC-BLANK-MAX-AMT                              05710001
                                       PICTURE S9(13)V9(2)    COMP-3.   05720001
               10  FILLER              PICTURE XX.                      05730001
               10  FILLER                                               05740001
                                       PICTURE XX.                      05750001
               10  SLINE-REC-TOT-REC-QTY                                05760001
                                       PICTURE S9(13)V9(5)    COMP-3.   05770001
               10  SLINE-REC-BLANK-MAX-QTY                              05780001
                                       PICTURE S9(13)V9(5)    COMP-3.   05790001
               10  SLINE-REC-ORDER-QTY                                  05800001
                                       PICTURE S9(13)V9(5)    COMP-3.   05810001
               10  SLINE-REC-ADJ-ORDER-QTY                              05820001
                                       PICTURE S9(13)V9(5)    COMP-3.   05830001
               10  SLINE-REC-UNIT-MEASURE                               05840001
                                       PICTURE XXXX.                    05850001
               10  SLINE-REC-UNIT-PRICE                                 05860001
                                       PICTURE S9(13)V9(5)    COMP-3.   05870001
               10  SLINE-REC-TYPE-MEASURE                               05880001
                                       PICTURE X.                       05890001
               10  SLINE-REC-DISC-AMT-PCT                               05900001
                                       PICTURE X.                       05910001
               10  SLINE-REC-DISC-AMT                                   05920001
                                       PICTURE S9(13)V9(2)    COMP-3.   05930001
               10  FILLER              PICTURE XX.                      05940001
               10  SLINE-REC-DISC-PCT                                   05950001
                                       PICTURE S999V99        COMP-3.   05960001
               10  SLINE-REC-DISC-PCT-R REDEFINES SLINE-REC-DISC-PCT    05970001
                                       PICTURE S9V9999        COMP-3.   05980001
               10  SLINE-REC-COM-DELIV-DT                               05990001
                                       PICTURE S9(5)          COMP-3.   06000001
               10  SLINE-REC-REQUIRE-DATE                               06010001
                                       PICTURE S9(5)          COMP-3.   06020001
               10  SLINE-REC-RELEASE-DATE                               06030001
                                       PICTURE S9(5)          COMP-3.   06040001
               10  SLINE-REC-ROUTING-CODE                               06050001
                                       PICTURE X(4).                    06060001
               10  SLINE-REC-INSPEC-CODE                                06070001
                                       PICTURE X(4).                    06080001
               10  SLINE-REC-INSPEC-REQUR                               06090001
                                       PICTURE X.                       06100001
               10  SLINE-REC-MATCH-ORIDE                                06110001
                                       PICTURE X.                       06120001
               10  SLINE-REC-SPEC-INS                                   06130001
                                       PICTURE XX.                      06140001
               10  SLINE-REC-PRIORITY-CD                                06150001
                                       PICTURE X.                       06160001
               10  SLINE-REC-CIP-RETRIEV                                06170001
                                       PICTURE X(6).                    06180001
               10  SLINE-REC-CIP-ACCOUNT                                06190001
                                       PICTURE X(10).                   06200001
               10  SLINE-REC-FA-CODE                                    06210001
                                       PICTURE X.                       06220001
               10  SLINE-REC-MULT-REQ-IND                               06230001
                                       PICTURE X.                       06240001
               10  SLINE-REC-REQUISIT-NBR                               06250001
                                       PICTURE X(9).                    06260001
               10  SLINE-REC-REQUISI-LINE                               06270001
                                       PICTURE 9(3).                    06280001
               10  SLINE-REC-REQUISIT-QTY                               06290001
                                       PICTURE S9(13)V9(5)    COMP-3.   06300001
               10  SLINE-REC-DISTRIBUTION.                              06310001
                   15  SLINE-REC-DISTCORP.                              06320001
                       20  SLINE-REC-DISTGRPCRP                         06330001
                                       PICTURE X(02).                   06340001
                       20  SLINE-REC-DISTSUBCRP                         06350001
                                       PICTURE X(03).                   06360001
                   15  SLINE-REC-DISTACCT                               06370001
                                       PICTURE X(44).                   06380001
               10  SLINE-REC-CURRENCY                                   06390001
                                       PICTURE X(5).                    06400001
               10  SLINE-REC-RECEIPT-CODE                               06410001
                                       PICTURE X.                       06420001
               10  SLINE-REC-SHIP-TO-CODE                               06430001
                                       PICTURE X(4).                    06440001
               10  SLINE-REC-RELEASE-PRINT                              06450001
                                       PICTURE X.                       06460001
               10  SLINE-REC-RELEASE-MAIL                               06470001
                                       PICTURE X.                       06480001
               10  SLINE-REC-JE-YR-PERIOD.                              06490001
                   15  SLINE-REC-JE-YEAR                                06500001
                                       PICTURE 99.                      06510001
                   15  SLINE-REC-JE-PERIOD                              06520001
                                       PICTURE 99.                      06530001
               10  SLINE-REC-JE-ACCRUAL-AMT                             06540001
                                       PICTURE S9(13)V9(2)    COMP-3.   06550001
               10  FILLER              PICTURE XX.                      06560001
               10  SLINE-REC-NBR-INSP-REQUR                             06570001
                                       PICTURE S9(5)          COMP-3.   06580001
               10  SLINE-REC-NBR-OF-INSP                                06590001
                                       PICTURE S9(5)          COMP-3.   06600001
               10  SLINE-REC-MISC-FIELD1                                06610001
                                       PICTURE X(15).                   06620001
               10  SLINE-REC-MISC-FIELD2                                06630001
                                       PICTURE X(15).                   06640001
               10  SLINE-REC-OPEN-ORDER-QTY                             06650001
                                       PICTURE S9(13)V9(5)   COMP-3.    06660001
               10  SLINE-REC-OPEN-ORDER-PCT                             06670001
                                       PICTURE S9(3)V99      COMP-3.    06680001
               10  SLINE-REC-BC-DATE.                                   06690001
                   15  SLINE-REC-BC-DATE-YY                             06700001
                                       PICTURE 99.                      06710001
                   15  SLINE-REC-BC-DATE-PER                            06720001
                                       PICTURE 99.                      06730001
               10  SLINE-REC-BC-POST-SW PICTURE X.                      06740001
               10  SLINE-REC-BC-FILLER PICTURE X(5).                    06750001
               10  SLINE-REC-COMMITMENT-ID                              06760001
                                       PICTURE X(10).                   06770001
               10  SLINE-REC-SAR-CODE                                   06780001
                                       PICTURE X(5).                    06790001
               10  SLINE-REC-INVENTORY-FLAG                             06800001
                                       PICTURE X.                       06810001
               10  SLINE-REC-WAREHOUSE-CODE                             06820001
                                       PICTURE X(5).                    06830001
               10  SLINE-REC-GENERATION-FLAG                            06840001
                                       PICTURE X.                       06850001
               10  SLINE-REC-QUOTE-NUMBER                               06860001
                                       PICTURE X(9).                    06870001
               10  SLINE-REC-QUOTE-FIELD                                06880001
                                       PICTURE X(11).                   06890001
               10  SLINE-REC-AMOUNT-FIELD1                              06900001
                                       PICTURE S9(13)V9(2)    COMP-3.   06910001
               10  FILLER              PICTURE XX.                      06920001
               10  SLINE-REC-AMOUNT-FIELD2                              06930001
                                       PICTURE S9(13)V9(2)    COMP-3.   06940001
               10  FILLER              PICTURE XX.                      06950001
               10  SLINE-REC-REPROM-DATE.                               06960001
                   15  SLINE-REC-REPROM-MM                              06970001
                                       PICTURE 99.                      06980001
                   15  SLINE-REC-REPROM-DD                              06990001
                                       PICTURE 99.                      07000001
                   15  SLINE-REC-REPROM-YY                              07010001
                                       PICTURE 99.                      07020001
               10  SLINE-REC-RCPTTOL   PICTURE 9(3)  COMP-3.            07030001
               10  SLINE-REC-BC-POEAMT PICTURE S9(13)V99 COMP-3.        07040001
               10  SLINE-REC-EXPANSION-1                                07050001
                                       PICTURE X(53).                   07060001
               10  SLINE-REC-ERR5913   PICTURE X.                       07070001
               10  SLINE-REC-RLSENTRY                                   07080001
                                       PICTURE X.                       07090001
               10  SLINE-REC-EDITSW                                     07100001
                                       PICTURE X.                       07110001
               10  SLINE-REC-ERR5989                                    07120001
                                       PICTURE X.                       07130001
               10  SLINE-REC-ERR5990                                    07140001
                                       PICTURE X.                       07150001
               10  SLINE-REC-SUBLDGID                                   07160001
                                       PICTURE X.                       07170001
               10  SLINE-REC-SUBLDGACCT                                 07180001
                                       PICTURE X(16).                   07190001
               10  SLINE-REC-ERR5631                                    07200001
                                       PICTURE X.                       07210001
               10  SLINE-REC-ERR5883                                    07220001
                                       PICTURE X.                       07230001
               10  SLINE-REC-NBR-ACT-RECS                               07240001
                                       PICTURE S9(5)          COMP-3.   07250001
               10  SLINE-REC-CIP-APPR                                   07260001
                                       PICTURE X(15).                   07270001
               10  SLINE-REC-CIP-PRPTY                                  07280001
                                       PICTURE X(6).                    07290001
               10  SLINE-REC-LAST-REL-NBR                               07300001
                                       PICTURE S9(5).                   07310001
               10  SLINE-REC-SUMMREL                                    07320001
                                       PICTURE X.                       07330001
               10  SLINE-REC-SUBQTY                                     07340001
                                       PICTURE S9(13)V9(5)    COMP-3.   07350001
               10  SLINE-REC-ERRWARN                                    07360001
                                       PICTURE S9(5)          COMP-3.   07370001
               10  SLINE-REC-ERRTOT                                     07380001
                                       PICTURE S9(5)          COMP-3.   07390001
               10  SLINE-REC-EXPANSION-2                                07400001
                                       PICTURE X(3).                    07410001
               10  SLINE-REC-ACTION                                     07420001
                                       PICTURE X.                       07430001
               10  SLINE-REC-SORT-KEY                                   07440001
                                       PICTURE S999           COMP-3.   07450001
               10  SLINE-REC-DESCR-SEQ                                  07460001
                                       PICTURE S9(3)          COMP-3.   07470001
               10  SLINE-REC-ORIGIN                                     07480001
                                       PICTURE X.                       07490001
               10  SLINE-REC-UPDATED                                    07500001
                                       PICTURE X.                       07510001
               10  SLINE-REC-INT-AMOUNT1                                07520001
                                       PICTURE S9(13)V9(2)    COMP-3.   07530001
               10  FILLER              PICTURE XX.                      07540001
               10  SLINE-REC-INT-AMOUNT2                                07550001
                                       PICTURE S9(13)V9(2)    COMP-3.   07560001
               10  FILLER              PICTURE XX.                      07570001
               10  SLINE-REC-INT-MISC1                                  07580001
                                       PICTURE X(25).                   07590001
               10  SLINE-REC-INT-MISC2                                  07600001
                                       PICTURE X(25).                   07610001
               10  SLINE-REC-INT-EXPANSION                              07620001
                                       PICTURE X(30).                   07630001
       SKIP3                                                            07640001
           02  PO-MAST-SLINE-DESC-RECORD REDEFINES PO-MAST-BASE-RECORD. 07650001
00519        05  SLINE-DESC-DELETE-BYTE                                 07660001
00520                                  PICTURE X.                       07670001
00521        05  SLINE-DESC-KEYFIELD.                                   07680001
00522          10  SLINE-DESC-CORP-SUB-CORP.                            07690001
00523              15  SLINE-DESC-CORP                                  07700001
00524                                  PICTURE XX.                      07710001
00525              15  SLINE-DESC-SUB-CORP                              07720001
00526                                  PICTURE XXX.                     07730001
00527          10  SLINE-DESC-PO-NBR                                    07740001
00528                                  PICTURE X(9).                    07750001
00529          10  SLINE-DESC-LINE-ITEM                                 07760001
00530                                  PICTURE 999.                     07770001
00531          10  SLINE-DESC-SUB-LINE                                  07780001
00532                                  PICTURE 9(5).                    07790001
00533          10  SLINE-DESC-FILLER                                    07800001
00534                                  PICTURE X(5).                    07810001
00535          10  SLINE-DESC-REC-TYPE                                  07820001
00536                                  PICTURE X.                       07830001
00537        05  SLINE-DESC-MILL-FIELDS.                                07840001
00538          10  SLINE-DESC-MILL-BYTES                                07850001
00539                                  PICTURE X(20).                   07860001
00540          10  SLINE-DESC-DATA-LNGTH                                07870001
00541                                  PICTURE S9(5)          COMP-3.   07880001
00542        05  SLINE-DESC-RECORD-BODY.                                07890001
00543          10  SLINE-DESC-BATCH-NBR                                 07900001
00544                                  PICTURE X(5).                    07910001
00545          10  SLINE-DESC-VENDOR-NBR                                07920001
00546                                  PICTURE X(15).                   07930001
00547          10  SLINE-DESC-VENDOR-LEVEL                              07940001
00548                                  PICTURE XXX.                     07950001
00549          10  SLINE-DESC-PO-TYPE                                   07960001
00550                                  PICTURE X.                       07970001
00551          10  SLINE-DESC-COMMENT-DESC-AREA.                        07980001
00552              15  SLINE-DESC-COMMENT-DESC-1                        07990001
00553                                  PICTURE X(29).                   08000001
00554              15  SLINE-DESC-COMMENT-DESC-2                        08010001
00555                                  PICTURE X(29).                   08020001
00556              15  SLINE-DESC-COMMENT-DESC-3                        08030001
00557                                  PICTURE X(29).                   08040001
00558              15  SLINE-DESC-COMMENT-DESC-4                        08050001
00559                                  PICTURE X(29).                   08060001
00560              15  SLINE-DESC-COMMENT-DESC-5                        08070001
00561                                  PICTURE X(29).                   08080001
00562              15  SLINE-DESC-COMMENT-DESC-6                        08090001
00563                                  PICTURE X(29).                   08100001
00564          10  SLINE-DESC-COMMENT-ARRAY REDEFINES                   08110001
00565              SLINE-DESC-COMMENT-DESC-AREA                         08120001
00566                                  PICTURE X(29)   OCCURS 6 TIMES.  08130001
00567          10  SLINE-DESC-EXPANSION-1                               08140001
00568                                  PICTURE X(434).                  08150001
00569          10  SLINE-DESC-ERRWARN                                   08160001
00570                                  PICTURE S9(5)          COMP-3.   08170001
00571          10  SLINE-DESC-ERRTOT                                    08180001
00572                                  PICTURE S9(5)          COMP-3.   08190001
00573          10  SLINE-DESC-EXPANSION-2                               08200001
00574                                  PICTURE X(3).                    08210001
00575          10  SLINE-DESC-ACTION                                    08220001
00576                                  PICTURE X.                       08230001
00577          10  SLINE-DESC-SORT-KEY                                  08240001
00578                                  PICTURE S999           COMP-3.   08250001
00579          10  SLINE-DESC-DESCR-SEQ                                 08260001
00580                                  PICTURE S9(3)          COMP-3.   08270001
00581          10  SLINE-DESC-ORIGIN                                    08280001
00582                                  PICTURE X.                       08290001
00583          10  SLINE-DESC-UPDATED                                   08300001
00584                                  PICTURE X.                       08310001
00585          10  SLINE-DESC-INTERNATIONAL                             08320001
00586                                  PICTURE X(100).                  08330001
